home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-170 dbase 10 for windows / 1.ima / SAMPLES.PAK / GRF.PRG < prev    next >
Text File  |  1993-07-26  |  2KB  |  52 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Grf.prg
  3. *
  4. *  WRITTEN BY:   Borland Late Night Crew
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      7/93
  9. *
  10. *  VERSION:      Alpha α
  11. *
  12. *  DESCRIPTION:  This program displays a window containing six different types
  13. *                of graph objects, each displaying the sales figures contained
  14. *                in sixgraph.dbf.
  15. *
  16. *  PARAMETERS:   None
  17. *
  18. *  CALLS:        None
  19. *
  20. *  USAGE:        DO Grf
  21. *
  22. *******************************************************************************
  23. set talk off
  24. private savearea
  25. savearea = str(workarea())
  26.  
  27. use sixgraph in select()   && sales data
  28. select sixgraph
  29.  
  30. define window big of application from 1,1 to 23,79;
  31.    title "Graphs";
  32.    sizeable;
  33.    onclose Cleanup()
  34. define graph t1 of big from 1,1 to 9,25 filename bar.grf hatch
  35. define graph t2 of big from 1,27 to 9,51 filename pie.grf
  36. define graph t3 of big from 1,53 to 9,77 filename line.grf
  37. define graph t4 of big from 10,1 to 19,25 filename regr.grf
  38. define graph t5 of big from 10,27 to 19,51 filename scat.grf
  39. define graph t6 of big from 10,53 to 19,77 filename step.grf
  40.  
  41. readmodal("Big")
  42. do Cleanup
  43.  
  44. *******************************************************************************
  45. function Cleanup
  46. * Close the open database, and return to the previous workarea
  47. *******************************************************************************
  48.  
  49. use
  50. select &savearea
  51. return .t.
  52.